home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / DEMO FANCY LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  953b  |  20 lines
  1. 10  REM  **********************
  2. 11  REM  * DEMO FANCY LOADER  *
  3. 12  REM  *   BY  A. ARIZPE    *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 70  TEXT : HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 10: HTAB 8: PRINT "1) FANCY HI-RES LOADER 1"
  9. 80  PRINT : HTAB 8: PRINT "2) FANCY HI-RES LOADER 2"
  10. 90  VTAB 24: HTAB 10: INPUT "WHICH LOADER? ";LDR
  11. 100  IF LDR = 1  THEN  PRINT  CHR$(4);"BLOAD FANCY.LOADER1"
  12. 110  IF LDR = 2  THEN  PRINT  CHR$(4);"BLOAD FANCY.LOADER2"
  13. 120  TEXT : HOME : VTAB 10: INPUT "PLEASE ENTER THE HI-RES PICTURE FILENAME: ";NA$: PRINT 
  14. 130  INPUT "TO WHICH PAGE DO YOU WISH TO LOAD       THE HI-RES PICTURE (1 OR 2)? ";PAGE
  15. 140 ADR = 8192:ADR = ADR *(3 -PAGE)
  16. 150  PRINT  CHR$(4);"BLOAD";NA$;",A";ADR
  17. 160  IF PAGE = 1  THEN  POKE 752,1
  18. 170  IF PAGE = 2  THEN  POKE 752,0
  19. 180  CALL 768: REM  TRANSFER PAGE
  20. 190  GET A$: GOTO 120